﻿Module Test
    Sub Main()
        Dim I As Byte
        Do While True
            Console.WriteLine(I)
            If I = Byte.MaxValue Then
                Exit Do
            End If
            I += 1
        Loop
        'Console.SetCursorPosition(80, 0)
    End Sub
End Module
